home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / Ap-Az / AstroStack1.1.cpt / AstroStack 1.1 / card_5101.txt < prev    next >
Encoding:
Text File  |  1988-04-24  |  4.4 KB  |  177 lines
  1. -- card: 5101 from stack: in.1
  2. -- bmap block id: 13021
  3. -- flags: 0000
  4. -- background id: 2632
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global DateA, DateB
  9.   hide card field id 1
  10.   hide card field id 2
  11.   show card field id 3
  12.   convert DateA to abbreviated date
  13.   convert DateB to abbreviated date
  14.   if DateA ‚↠DateB then
  15.     hide card field id 3
  16.     show card field id 1
  17.     show card field id 2
  18.   else
  19.     hide card field id 1
  20.     hide card field id 2
  21.     show card field id 3
  22.   end if
  23. end openCard
  24.  
  25.  
  26. -- part 1 (field)
  27. -- low flags: 81
  28. -- high flags: 0000
  29. -- rect: left=17 top=62 right=114 bottom=484
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 0
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: 
  38.  
  39.  
  40. -- part 2 (field)
  41. -- low flags: 81
  42. -- high flags: 0000
  43. -- rect: left=255 top=94 right=112 bottom=479
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: 
  52.  
  53.  
  54. -- part 3 (field)
  55. -- low flags: 01
  56. -- high flags: 0001
  57. -- rect: left=9 top=59 right=120 bottom=495
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 3
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: 
  66.  
  67.  
  68. -- part 4 (field)
  69. -- low flags: 01
  70. -- high flags: 0000
  71. -- rect: left=252 top=157 right=174 bottom=379
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 0
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: 
  80.  
  81.  
  82. -- part 5 (field)
  83. -- low flags: 00
  84. -- high flags: 0002
  85. -- rect: left=131 top=223 right=241 bottom=160
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 65535
  89. -- font id: 3
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: 
  94.  
  95.  
  96. -- part 6 (field)
  97. -- low flags: 00
  98. -- high flags: 0002
  99. -- rect: left=185 top=223 right=241 bottom=214
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 65535
  103. -- font id: 3
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: 
  108.  
  109.  
  110. -- part 7 (field)
  111. -- low flags: 00
  112. -- high flags: 0002
  113. -- rect: left=236 top=223 right=241 bottom=265
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 65535
  117. -- font id: 3
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: 
  122.  
  123.  
  124. -- part 8 (button)
  125. -- low flags: 00
  126. -- high flags: A003
  127. -- rect: left=209 top=308 right=330 bottom=309
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: Continue
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   global timeSeconds,LongA,LongB,longitude, siderealBirth, latitude
  139.   put (card field ID 7) + (60 * card field ID 6) + (3600 * card field ID 5) into noonsidereal
  140.   put noonsidereal - (43200 - timeSeconds) into siderealBirth
  141.   put ((43200 - timeSeconds)/60)/6 into interval
  142.   put siderealBirth - interval into siderealBirth
  143.   put (LongB/15) + (4*LongA) into LongA
  144.   put 60 * LongA into LongA
  145.   if longitude is true then subtract LongA from siderealBirth
  146.   else add LongA to siderealBirth
  147.   if siderealBirth < 0 then add 86400 to siderealBirth
  148.   if siderealBirth >= 86400 then subtract 86400 from siderealBirth
  149.   put trunc(siderealBirth/3600) into card field ID 2 of card ID 6129
  150.   put (the value of siderealBirth) mod 3600 into x
  151.   put trunc(x/60) into card field ID 3 of card ID 6129
  152.   put round((the value of x) mod 60) into card field ID 4 of card ID 6129
  153.   if latitude is true then
  154.     add 43200 to siderealBirth
  155.     if siderealBirth >= 86400 then subtract 86400 from siderealBirth
  156.     put trunc(siderealBirth/3600) into card field ID 10 of card ID 7451
  157.     put (the value of siderealBirth) mod 3600 into x
  158.     put trunc(x/60) into card field ID 11 of card ID 7451
  159.     put round((the value of x) mod 60) into card field ID 12 of card ID 7451
  160.     go to card id 7451
  161.   else go to card id 6129
  162. end mouseUp
  163.  
  164.  
  165. -- part contents for card part 1
  166. ----- text -----
  167. IMPORTANT!!! Because of the difference between Greenwich Mean 
  168.                         Time and the time at the birthplace, you will be using 
  169.                         a  revised birthdate: 
  170.  
  171. -- part contents for card part 2
  172. ----- text -----
  173. .
  174.  
  175. -- part contents for card part 4
  176. ----- text -----
  177. :